Attribute VB_Name = "modFunctionality"
Option Explicit

Public Sub assignVariantVariable(ByRef pr_VarAssignTo As Variant, ByRef pr_VarNewData As Variant)
If IsObject(pr_VarNewData) Then
    Set pr_VarAssignTo = pr_VarNewData
Else
    pr_VarAssignTo = pr_VarNewData
End If
End Sub
